home *** CD-ROM | disk | FTP | other *** search
/ Morton Subotnick - All My Hummingbirds Have Alibis / CD [Hummingbirds].bin / CD-ROM Files / Program Notes / Program Notes.rsrc / VWFI_1024 < prev    next >
Unknown  |  1992-12-20  |  9.8 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 24 76 48 | 00 00 00 2c 00 00 00 40 |.....$vH|...,...@|
|00000010| 00 07 00 00 00 00 00 00 | 26 a1 00 00 26 ad 00 00 |........|&...&...|
|00000020| 26 d1 00 00 26 d1 00 00 | 26 d3 00 00 26 d3 00 00 |&...&...|&...&...|
|00000030| 26 d3 6f 6e 20 44 6f 51 | 75 69 74 0d 20 20 67 6c |&.on DoQ|uit.  gl|
|00000040| 6f 62 61 6c 20 72 61 6c | 70 68 0d 20 20 43 44 53 |obal ral|ph.  CDS|
|00000050| 74 6f 70 28 29 0d 20 20 | 69 66 20 72 61 6c 70 68 |top().  |if ralph|
|00000060| 20 3c 3e 20 22 22 20 74 | 68 65 6e 20 73 65 74 20 | <> "" t|hen set |
|00000070| 74 68 65 20 63 6f 6c 6f | 72 64 65 70 74 68 20 74 |the colo|rdepth t|
|00000080| 6f 20 72 61 6c 70 68 0d | 20 20 71 75 69 74 0d 65 |o ralph.|  quit.e|
|00000090| 6e 64 20 44 6f 51 75 69 | 74 0d 0d 6f 6e 20 41 64 |nd DoQui|t..on Ad|
|000000a0| 76 41 74 54 69 6d 65 20 | 74 31 2c 74 32 2c 74 33 |vAtTime |t1,t2,t3|
|000000b0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 41 6e 69 53 74 |.  globa|l gAniSt|
|000000c0| 61 72 74 0d 20 20 70 75 | 74 20 54 69 6d 65 54 6f |art.  pu|t TimeTo|
|000000d0| 42 6c 6b 73 28 74 31 2c | 74 32 2c 74 33 29 20 2b |Blks(t1,|t2,t3) +|
|000000e0| 20 67 41 6e 69 53 74 61 | 72 74 20 69 6e 74 6f 20 | gAniSta|rt into |
|000000f0| 63 6d 70 62 6c 6b 0d 20 | 20 70 75 74 20 43 44 45 |cmpblk. | put CDE|
|00000100| 6c 61 70 73 65 64 28 29 | 20 69 6e 74 6f 20 63 75 |lapsed()| into cu|
|00000110| 72 0d 20 20 70 75 74 20 | 54 69 6d 65 54 6f 42 6c |r.  put |TimeToBl|
|00000120| 6b 73 28 69 74 65 6d 20 | 32 20 6f 66 20 63 75 72 |ks(item |2 of cur|
|00000130| 2c 69 74 65 6d 20 33 20 | 6f 66 20 63 75 72 2c 20 |,item 3 |of cur, |
|00000140| 69 74 65 6d 20 34 20 6f | 66 20 63 75 72 29 c2 0d |item 4 o|f cur)..|
|00000150| 69 6e 74 6f 20 63 75 72 | 62 6c 6b 0d 20 20 69 66 |into cur|blk.  if|
|00000160| 20 28 63 75 72 62 6c 6b | 20 3c 20 63 6d 70 62 6c | (curblk| < cmpbl|
|00000170| 6b 29 20 74 68 65 6e 0d | 20 20 20 20 67 6f 20 74 |k) then.|    go t|
|00000180| 6f 20 74 68 65 20 66 72 | 61 6d 65 0d 20 20 65 6e |o the fr|ame.  en|
|00000190| 64 20 69 66 0d 65 6e 64 | 20 41 64 76 41 74 54 69 |d if.end| AdvAtTi|
|000001a0| 6d 65 0d 0d 6f 6e 20 50 | 6c 61 79 53 74 72 75 63 |me..on P|layStruc|
|000001b0| 74 75 72 65 20 74 68 69 | 6e 67 0d 20 20 67 6c 6f |ture thi|ng.  glo|
|000001c0| 62 61 6c 20 67 4c 61 73 | 74 53 74 72 75 63 0d 20 |bal gLas|tStruc. |
|000001d0| 20 0d 20 20 69 66 20 43 | 44 53 74 61 74 75 73 28 | .  if C|DStatus(|
|000001e0| 29 20 3d 20 22 31 22 20 | 74 68 65 6e 20 0d 20 20 |) = "1" |then .  |
|000001f0| 20 20 43 44 50 61 75 73 | 65 20 30 0d 20 20 20 20 |  CDPaus|e 0.    |
|00000200| 69 66 20 67 4c 61 73 74 | 53 74 72 75 63 20 3d 20 |if gLast|Struc = |
|00000210| 74 68 69 6e 67 20 74 68 | 65 6e 20 65 78 69 74 0d |thing th|en exit.|
|00000220| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 70 75 |  end if|.  .  pu|
|00000230| 74 20 74 68 69 6e 67 20 | 69 6e 74 6f 20 67 4c 61 |t thing |into gLa|
|00000240| 73 74 53 74 72 75 63 0d | 20 20 70 75 74 20 6c 69 |stStruc.|  put li|
|00000250| 6e 65 20 74 68 69 6e 67 | 20 6f 66 20 66 69 65 6c |ne thing| of fiel|
|00000260| 64 20 22 41 62 6f 75 74 | 4d 75 73 53 74 72 75 63 |d "About|MusStruc|
|00000270| 22 20 69 6e 74 6f 20 74 | 0d 20 20 44 6f 43 44 50 |" into t|.  DoCDP|
|00000280| 6c 61 79 20 69 74 65 6d | 20 31 20 6f 66 20 74 2c |lay item| 1 of t,|
|00000290| 20 69 74 65 6d 20 32 20 | 6f 66 20 74 2c 20 69 74 | item 2 |of t, it|
|000002a0| 65 6d 20 33 20 6f 66 20 | 74 2c c2 0d 69 74 65 6d |em 3 of |t,..item|
|000002b0| 20 34 20 6f 66 20 74 2c | 20 69 74 65 6d 20 35 20 | 4 of t,| item 5 |
|000002c0| 6f 66 20 74 2c 20 69 74 | 65 6d 20 36 20 6f 66 20 |of t, it|em 6 of |
|000002d0| 74 0d 65 6e 64 20 50 6c | 61 79 53 74 72 75 63 74 |t.end Pl|ayStruct|
|000002e0| 75 72 65 0d 0d 0d 6f 6e | 20 43 68 65 63 6b 52 65 |ure...on| CheckRe|
|000002f0| 76 0d 20 20 67 6c 6f 62 | 61 6c 20 67 52 65 76 45 |v.  glob|al gRevE|
|00000300| 6e 64 42 6c 6b 2c 67 52 | 65 76 53 70 72 0d 20 20 |ndBlk,gR|evSpr.  |
|00000310| 69 66 20 28 43 75 72 43 | 44 42 6c 6f 63 6b 73 28 |if (CurC|DBlocks(|
|00000320| 29 20 3e 3d 20 67 52 65 | 76 45 6e 64 42 6c 6b 29 |) >= gRe|vEndBlk)|
|00000330| 20 6f 72 20 28 43 44 53 | 74 61 74 75 73 28 29 20 | or (CDS|tatus() |
|00000340| 3c 3e 20 22 31 22 29 20 | 74 68 65 6e 0d 20 20 20 |<> "1") |then.   |
|00000350| 20 45 6e 64 52 65 76 0d | 20 20 65 6e 64 20 69 66 | EndRev.|  end if|
|00000360| 0d 65 6e 64 20 43 68 65 | 63 6b 52 65 76 0d 0d 6f |.end Che|ckRev..o|
|00000370| 6e 20 44 6f 43 44 50 6c | 61 79 20 73 31 2c 73 32 |n DoCDPl|ay s1,s2|
|00000380| 2c 73 33 2c 65 31 2c 65 | 32 2c 65 33 0d 20 20 70 |,s3,e1,e|2,e3.  p|
|00000390| 75 74 20 22 47 6f 74 20 | 74 68 65 20 43 6c 69 63 |ut "Got |the Clic|
|000003a0| 6b 22 0d 20 20 69 66 20 | 43 44 53 74 61 74 75 73 |k".  if |CDStatus|
|000003b0| 28 29 20 3d 20 22 31 22 | 20 74 68 65 6e 0d 20 20 |() = "1"| then.  |
|000003c0| 20 20 43 44 50 61 75 73 | 65 0d 20 20 65 6c 73 65 |  CDPaus|e.  else|
|000003d0| 0d 20 20 20 20 43 44 50 | 6c 61 79 20 73 31 2c 73 |.    CDP|lay s1,s|
|000003e0| 32 2c 73 33 2c 65 31 2c | 65 32 2c 65 33 0d 20 20 |2,s3,e1,|e2,e3.  |
|000003f0| 65 6e 64 20 69 66 0d 20 | 20 55 70 64 61 74 65 43 |end if. | UpdateC|
|00000400| 75 72 73 6f 72 73 0d 65 | 6e 64 20 44 6f 43 44 50 |ursors.e|nd DoCDP|
|00000410| 6c 61 79 0d 0d 6f 6e 20 | 67 6f 74 6f 6d 61 69 6e |lay..on |gotomain|
|00000420| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 4d 65 6e 75 42 |.  globa|l gMenuB|
|00000430| 61 72 2c 67 43 44 50 61 | 74 68 2c 67 55 73 65 72 |ar,gCDPa|th,gUser|
|00000440| 50 61 74 68 0d 20 20 0d | 20 20 43 44 50 61 75 73 |Path.  .|  CDPaus|
|00000450| 65 20 30 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |e 0.  pu|ppetSpri|
|00000460| 74 65 20 36 2c 66 61 6c | 73 65 0d 20 20 70 75 70 |te 6,fal|se.  pup|
|00000470| 70 65 74 53 70 72 69 74 | 65 20 37 2c 66 61 6c 73 |petSprit|e 7,fals|
|00000480| 65 0d 20 20 70 75 70 70 | 65 74 53 70 72 69 74 65 |e.  pupp|etSprite|
|00000490| 20 31 37 2c 66 61 6c 73 | 65 0d 20 20 70 75 70 70 | 17,fals|e.  pupp|
|000004a0| 65 74 53 70 72 69 74 65 | 20 31 39 2c 66 61 6c 73 |etSprite| 19,fals|
|000004b0| 65 0d 20 20 70 75 70 70 | 65 74 53 70 72 69 74 65 |e.  pupp|etSprite|
|000004c0| 20 32 30 2c 66 61 6c 73 | 65 0d 20 20 0d 20 20 69 | 20,fals|e.  .  i|
|000004d0| 6e 73 74 61 6c 6c 4d 65 | 6e 75 0d 20 20 70 75 74 |nstallMe|nu.  put|
|000004e0| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 67 4d 65 6e | false i|nto gMen|
|000004f0| 75 42 61 72 0d 20 20 69 | 66 20 67 43 44 50 61 74 |uBar.  i|f gCDPat|
|00000500| 68 20 3d 20 22 30 22 20 | 74 68 65 6e 0d 20 20 20 |h = "0" |then.   |
|00000510| 20 70 75 74 20 22 22 20 | 69 6e 74 6f 20 67 43 44 | put "" |into gCD|
|00000520| 50 61 74 68 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |Path.  e|nd if.  |
|00000530| 69 66 20 67 55 73 65 72 | 50 61 74 68 20 3d 20 22 |if gUser|Path = "|
|00000540| 30 22 20 74 68 65 6e 0d | 20 20 20 20 70 75 74 20 |0" then.|    put |
|00000550| 22 22 20 69 6e 74 6f 20 | 67 55 73 65 72 50 61 74 |"" into |gUserPat|
|00000560| 68 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 67 6f 20 |h.  end |if.  go |
|00000570| 74 6f 20 66 72 61 6d 65 | 20 6c 61 62 65 6c 28 22 |to frame| label("|
|00000580| 57 61 69 74 22 29 0d 20 | 20 67 6f 20 74 6f 20 6d |Wait"). | go to m|
|00000590| 6f 76 69 65 20 67 55 73 | 65 72 50 61 74 68 20 26 |ovie gUs|erPath &|
|000005a0| 20 22 41 6c 6c 4d 79 20 | 4d 61 69 6e 22 0d 20 20 | "AllMy |Main".  |
|000005b0| 0d 65 6e 64 20 67 6f 74 | 6f 6d 61 69 6e 0d 0d 6f |.end got|omain..o|
|000005c0| 6e 20 6d 61 69 6e 74 6f | 66 72 61 6d 65 20 66 72 |n mainto|frame fr|
|000005d0| 6d 0d 20 20 0d 20 20 67 | 6c 6f 62 61 6c 20 67 4d |m.  .  g|lobal gM|
|000005e0| 65 6e 75 42 61 72 2c 67 | 43 44 50 61 74 68 2c 67 |enuBar,g|CDPath,g|
|000005f0| 55 73 65 72 50 61 74 68 | 0d 20 20 0d 20 20 70 75 |UserPath|.  .  pu|
|00000600| 70 70 65 74 53 70 72 69 | 74 65 20 31 37 2c 66 61 |ppetSpri|te 17,fa|
|00000610| 6c 73 65 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |lse.  pu|ppetSpri|
|00000620| 74 65 20 31 39 2c 66 61 | 6c 73 65 0d 20 20 70 75 |te 19,fa|lse.  pu|
|00000630| 70 70 65 74 53 70 72 69 | 74 65 20 32 30 2c 66 61 |ppetSpri|te 20,fa|
|00000640| 6c 73 65 0d 20 20 0d 20 | 20 69 6e 73 74 61 6c 6c |lse.  . | install|
|00000650| 4d 65 6e 75 0d 20 20 69 | 66 20 67 43 44 50 61 74 |Menu.  i|f gCDPat|
|00000660| 68 20 3d 20 22 30 22 20 | 74 68 65 6e 0d 20 20 20 |h = "0" |then.   |
|00000670| 20 70 75 74 20 22 22 20 | 69 6e 74 6f 20 67 43 44 | put "" |into gCD|
|00000680| 50 61 74 68 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |Path.  e|nd if.  |
|00000690| 69 66 20 67 55 73 65 72 | 50 61 74 68 20 3d 20 22 |if gUser|Path = "|
|000006a0| 30 22 20 74 68 65 6e 0d | 20 20 20 20 70 75 74 20 |0" then.|    put |
|000006b0| 22 22 20 69 6e 74 6f 20 | 67 55 73 65 72 50 61 74 |"" into |gUserPat|
|000006c0| 68 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |h.  end |if.  .  |
|000006d0| 0d 20 20 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |.  put f|alse int|
|000006e0| 6f 20 67 4d 65 6e 75 42 | 61 72 0d 20 20 69 66 20 |o gMenuB|ar.  if |
|000006f0| 66 72 6d 20 3d 20 31 20 | 74 68 65 6e 0d 20 20 20 |frm = 1 |then.   |
|00000700| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 6c 61 62 | go to f|rame lab|
|00000710| 65 6c 28 22 57 61 69 74 | 22 29 0d 20 20 20 20 67 |el("Wait|").    g|
|00000720| 6f 20 74 6f 20 6d 6f 76 | 69 65 20 67 55 73 65 72 |o to mov|ie gUser|
|00000730| 50 61 74 68 20 26 20 22 | 41 6c 6c 4d 79 20 50 6c |Path & "|AllMy Pl|
|00000740| 61 79 22 0d 20 20 65 6c | 73 65 20 69 66 20 66 72 |ay".  el|se if fr|
|00000750| 6d 20 3d 20 32 20 74 68 | 65 6e 0d 20 20 20 20 67 |m = 2 th|en.    g|
|00000760| 6f 20 74 6f 20 66 72 61 | 6d 65 20 6c 61 62 65 6c |o to fra|me label|
|00000770| 28 22 57 61 69 74 22 29 | 0d 20 20 20 20 67 6f 20 |("Wait")|.    go |
|00000780| 74 6f 20 6d 6f 76 69 65 | 20 67 43 44 50 61 74 68 |to movie| gCDPath|
|00000790| 20 26 20 22 49 6d 61 67 | 69 6e 61 72 79 20 4d 65 | & "Imag|inary Me|
|000007a0| 6e 75 22 0d 20 20 65 6c | 73 65 20 69 66 20 66 72 |nu".  el|se if fr|
|000007b0| 6d 20 3d 20 33 20 74 68 | 65 6e 0d 20 20 20 20 67 |m = 3 th|en.    g|
|000007c0| 6f 20 74 6f 20 66 72 61 | 6d 65 20 6c 61 62 65 6c |o to fra|me label|
|000007d0| 28 22 57 61 69 74 22 29 | 0d 20 20 20 20 67 6f 20 |("Wait")|.    go |
|000007e0| 74 6f 20 6d 6f 76 69 65 | 20 20 67 43 44 50 61 74 |to movie|  gCDPat|
|000007f0| 68 20 26 20 22 41 62 6f | 75 74 20 74 68 65 20 4d |h & "Abo|ut the M|
|00000800| 75 73 69 63 22 0d 20 20 | 65 6c 73 65 20 69 66 20 |usic".  |else if |
|00000810| 66 72 6d 20 3d 20 34 20 | 74 68 65 6e 0d 20 20 20 |frm = 4 |then.   |
|00000820| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 6c 61 62 | go to f|rame lab|
|00000830| 65 6c 28 22 57 61 69 74 | 22 29 0d 20 20 20 20 67 |el("Wait|").    g|
|00000840| 6f 20 74 6f 20 6d 6f 76 | 69 65 20 20 67 43 44 50 |o to mov|ie  gCDP|
|00000850| 61 74 68 20 26 20 22 41 | 62 6f 75 74 20 74 68 65 |ath & "A|bout the|
|00000860| 20 54 65 63 68 6e 6f 6c | 6f 67 79 22 0d 20 20 65 | Technol|ogy".  e|
|00000870| 6c 73 65 20 69 66 20 66 | 72 6d 20 3d 20 35 20 74 |lse if f|rm = 5 t|
|00000880| 68 65 6e 0d 20 20 20 20 | 67 6f 20 74 6f 20 66 72 |hen.    |go to fr|
|00000890| 61 6d 65 20 6c 61 62 65 | 6c 28 22 57 61 69 74 22 |ame labe|l("Wait"|
|000008a0| 29 0d 20 20 20 20 67 6f | 20 74 6f 20 6d 6f 76 69 |).    go| to movi|
|000008b0| 65 20 20 67 43 44 50 61 | 74 68 20 26 20 22 49 6e |e  gCDPa|th & "In|
|000008c0| 74 72 6f 64 75 63 74 69 | 6f 6e 22 0d 20 20 65 6c |troducti|on".  el|
|000008d0| 73 65 20 69 66 20 66 72 | 6d 20 3d 20 36 20 74 68 |se if fr|m = 6 th|
|000008e0| 65 6e 0d 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |en.    g|o to fra|
|000008f0| 6d 65 20 6c 61 62 65 6c | 28 22 57 61 69 74 22 29 |me label|("Wait")|
|00000900| 0d 20 20 20 20 67 6f 20 | 74 6f 20 6d 6f 76 69 65 |.    go |to movie|
|00000910| 20 20 67 43 44 50 61 74 | 68 20 26 20 22 41 20 43 |  gCDPat|h & "A C|
|00000920| 6f 6d 70 6f 73 65 72 27 | 73 20 56 69 65 77 22 0d |omposer'|s View".|
|00000930| 20 20 65 6c 73 65 20 69 | 66 20 66 72 6d 20 3d 20 |  else i|f frm = |
|00000940| 37 20 74 68 65 6e 0d 20 | 20 20 20 47 6f 74 6f 54 |7 then. |   GotoT|
|00000950| 6f 70 0d 20 20 65 6c 73 | 65 20 69 66 20 66 72 6d |op.  els|e if frm|
|00000960| 20 3d 20 38 20 74 68 65 | 6e 0d 20 20 20 20 67 6f | = 8 the|n.    go|
|00000970| 20 74 6f 20 66 72 61 6d | 65 20 6c 61 62 65 6c 28 | to fram|e label(|
|00000980| 22 57 61 69 74 22 29 0d | 20 20 20 20 67 6f 20 74 |"Wait").|    go t|
|00000990| 6f 20 6d 6f 76 69 65 20 | 20 67 43 44 50 61 74 68 |o movie | gCDPath|
|000009a0| 20 26 20 22 43 72 65 64 | 69 74 73 22 0d 20 20 65 | & "Cred|its".  e|
|000009b0| 6c 73 65 20 69 66 20 66 | 72 6d 20 3d 20 39 20 74 |lse if f|rm = 9 t|
|000009c0| 68 65 6e 0d 20 20 20 20 | 67 6f 20 74 6f 20 66 72 |hen.    |go to fr|
|000009d0| 61 6d 65 20 6c 61 62 65 | 6c 28 22 57 61 69 74 22 |ame labe|l("Wait"|
|000009e0| 29 0d 20 20 20 20 67 6f | 20 74 6f 20 6d 6f 76 69 |).    go| to movi|
|000009f0| 65 20 20 67 43 44 50 61 | 74 68 20 26 20 22 47 6c |e  gCDPa|th & "Gl|
|00000a00| 6f 73 73 61 72 79 22 0d | 20 20 65 6e 64 20 69 66 |ossary".|  end if|
|00000a10| 0d 20 20 0d 65 6e 64 20 | 6d 61 69 6e 74 6f 66 72 |.  .end |maintofr|
|00000a20| 61 6d 65 0d 0d 0d 6f 6e | 20 47 6f 74 6f 52 65 6c |ame...on| GotoRel|
|00000a30| 46 72 61 6d 65 20 72 65 | 6c 0d 20 20 43 44 50 61 |Frame re|l.  CDPa|
|00000a40| 75 73 65 20 30 0d 20 20 | 67 6f 20 74 6f 20 66 72 |use 0.  |go to fr|
|00000a50| 61 6d 65 20 28 74 68 65 | 20 66 72 61 6d 65 20 2b |ame (the| frame +|
|00000a60| 20 28 72 65 6c 29 29 0d | 65 6e 64 20 47 6f 74 6f | (rel)).|end Goto|
|00000a70| 52 65 6c 46 72 61 6d 65 | 0d 0d 6f 6e 20 50 72 6f |RelFrame|..on Pro|
|00000a80| 67 4e 6f 74 65 73 54 6f | 46 72 61 6d 65 20 66 72 |gNotesTo|Frame fr|
|00000a90| 6d 0d 20 20 70 75 74 20 | 22 70 72 6f 67 22 26 66 |m.  put |"prog"&f|
|00000aa0| 72 6d 20 69 6e 74 6f 20 | 6c 62 6c 0d 20 20 67 6f |rm into |lbl.  go|
|00000ab0| 20 74 6f 20 66 72 61 6d | 65 20 4c 61 62 65 6c 28 | to fram|e Label(|
|00000ac0| 6c 62 6c 29 0d 65 6e 64 | 20 50 72 6f 67 4e 6f 74 |lbl).end| ProgNot|
|00000ad0| 65 73 54 6f 46 72 61 6d | 65 0d 0d 6f 6e 20 47 6f |esToFram|e..on Go|
|00000ae0| 74 6f 54 6f 70 0d 20 20 | 43 44 50 61 75 73 65 20 |toTop.  |CDPause |
|00000af0| 30 0d 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |0.  go t|o frame |
|00000b00| 31 0d 65 6e 64 20 47 6f | 74 6f 54 6f 70 0d 0d 0d |1.end Go|toTop...|
|00000b10| 6f 6e 20 53 68 6f 77 46 | 72 61 6d 65 54 65 78 74 |on ShowF|rameText|
|00000b20| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 48 69 64 65 54 |.  globa|l gHideT|
|00000b30| 69 6d 65 0d 20 20 0d 20 | 20 70 75 74 20 74 68 65 |ime.  . | put the|
|00000b40| 20 74 69 63 6b 73 20 2b | 20 36 30 30 20 69 6e 74 | ticks +| 600 int|
|00000b50| 6f 20 67 48 69 64 65 54 | 69 6d 65 0d 20 20 53 68 |o gHideT|ime.  Sh|
|00000b60| 6f 77 53 70 72 69 74 65 | 20 36 0d 20 20 53 68 6f |owSprite| 6.  Sho|
|00000b70| 77 53 70 72 69 74 65 20 | 37 0d 65 6e 64 20 53 68 |wSprite |7.end Sh|
|00000b80| 6f 77 46 72 61 6d 65 54 | 65 78 74 0d 0d 0d 6f 6e |owFrameT|ext...on|
|00000b90| 20 46 69 6e 64 54 68 65 | 42 75 74 74 6f 6e 20 74 | FindThe|Button t|
|00000ba0| 68 65 53 70 72 69 74 65 | 2c 6d 61 78 42 74 6e 2c |heSprite|,maxBtn,|
|00000bb0| 68 0d 20 20 0d 20 20 70 | 75 74 20 28 74 68 65 20 |h.  .  p|ut (the |
|00000bc0| 77 69 64 74 68 20 6f 66 | 20 73 70 72 69 74 65 20 |width of| sprite |
|00000bd0| 74 68 65 53 70 72 69 74 | 65 29 2f 6d 61 78 62 74 |theSprit|e)/maxbt|
|00000be0| 6e 20 69 6e 74 6f 20 62 | 77 69 64 20 2d 2d 20 62 |n into b|wid -- b|
|00000bf0| 77 69 64 20 3d 20 74 68 | 65 20 77 69 64 74 68 20 |wid = th|e width |
|00000c00| 6f 66 20 65 61 63 68 20 | 62 75 74 74 6f 6e 20 0d |of each |button .|
|00000c10| 20 20 70 75 74 20 28 68 | 2d 28 74 68 65 20 6c 65 |  put (h|-(the le|
|00000c20| 66 74 20 6f 66 20 73 70 | 72 69 74 65 20 74 68 65 |ft of sp|rite the|
|00000c30| 53 70 72 69 74 65 29 29 | 2f 62 77 69 64 20 69 6e |Sprite))|/bwid in|
|00000c40| 74 6f 20 70 72 65 73 73 | 65 64 42 74 6e 20 2d 2d |to press|edBtn --|
|00000c50| 20 70 72 65 73 73 65 64 | 20 42 74 6e 20 2d 20 74 | pressed| Btn - t|
|00000c60| 68 65 20 62 75 74 74 6f | 6e 20 74 68 61 74 20 77 |he butto|n that w|
|00000c70| 61 73 20 70 72 65 73 73 | 65 64 0d 20 20 69 66 20 |as press|ed.  if |
|00000c80| 70 72 65 73 73 65 64 42 | 74 6e 20 3c 20 30 20 74 |pressedB|tn < 0 t|
|00000c90| 68 65 6e 0d 20 20 20 20 | 70 75 74 20 30 20 69 6e |hen.    |put 0 in|
|00000ca0| 74 6f 20 70 72 65 73 73 | 65 64 42 74 6e 0d 20 20 |to press|edBtn.  |
|00000cb0| 65 6c 73 65 20 69 66 20 | 70 72 65 73 73 65 64 42 |else if |pressedB|
|00000cc0| 74 6e 20 3e 20 6d 61 78 | 62 74 6e 2d 31 20 74 68 |tn > max|btn-1 th|
|00000cd0| 65 6e 0d 20 20 20 20 70 | 75 74 20 6d 61 78 62 74 |en.    p|ut maxbt|
|00000ce0| 6e 2d 31 20 69 6e 74 6f | 20 70 72 65 73 73 65 64 |n-1 into| pressed|
|00000cf0| 42 74 6e 0d 20 20 65 6e | 64 20 69 66 0d 20 20 72 |Btn.  en|d if.  r|
|00000d00| 65 74 75 72 6e 20 70 72 | 65 73 73 65 64 42 74 6e |eturn pr|essedBtn|
|00000d10| 2b 31 0d 20 20 0d 65 6e | 64 20 46 69 6e 64 54 68 |+1.  .en|d FindTh|
|00000d20| 65 42 75 74 74 6f 6e 0d | 0d 6f 6e 20 46 69 6e 64 |eButton.|.on Find|
|00000d30| 54 68 65 42 75 74 74 6f | 6e 56 65 72 74 69 63 61 |TheButto|nVertica|
|00000d40| 6c 20 74 68 65 53 70 72 | 69 74 65 2c 6d 61 78 42 |l theSpr|ite,maxB|
|00000d50| 74 6e 2c 68 0d 20 20 70 | 75 74 20 28 74 68 65 20 |tn,h.  p|ut (the |
|00000d60| 68 65 69 67 68 74 20 6f | 66 20 73 70 72 69 74 65 |height o|f sprite|
|00000d70| 20 74 68 65 53 70 72 69 | 74 65 29 0d 20 20 70 75 | theSpri|te).  pu|
|00000d80| 74 20 28 74 68 65 20 68 | 65 69 67 68 74 20 6f 66 |t (the h|eight of|
|00000d90| 20 73 70 72 69 74 65 20 | 74 68 65 53 70 72 69 74 | sprite |theSprit|
|00000da0| 65 29 2f 6d 61 78 62 74 | 6e 20 69 6e 74 6f 20 62 |e)/maxbt|n into b|
|00000db0| 77 69 64 20 2d 2d 20 62 | 77 69 64 20 3d 20 74 68 |wid -- b|wid = th|
|00000dc0| 65 20 77 69 64 74 68 20 | 6f 66 20 65 61 63 68 20 |e width |of each |
|00000dd0| 62 75 74 74 6f 6e 20 0d | 20 20 70 75 74 20 28 68 |button .|  put (h|
|00000de0| 2d 28 74 68 65 20 74 6f | 70 20 6f 66 20 73 70 72 |-(the to|p of spr|
|00000df0| 69 74 65 20 74 68 65 53 | 70 72 69 74 65 29 29 2f |ite theS|prite))/|
|00000e00| 62 77 69 64 20 69 6e 74 | 6f 20 70 72 65 73 73 65 |bwid int|o presse|
|00000e10| 64 42 74 6e 20 2d 2d 20 | 70 72 65 73 73 65 64 20 |dBtn -- |pressed |
|00000e20| 42 74 6e 20 2d 20 74 68 | 65 20 62 75 74 74 6f 6e |Btn - th|e button|
|00000e30| 20 74 68 61 74 20 77 61 | 73 20 70 72 65 73 73 65 | that wa|s presse|
|00000e40| 64 0d 20 20 69 66 20 70 | 72 65 73 73 65 64 42 74 |d.  if p|ressedBt|
|00000e50| 6e 20 3c 20 30 20 74 68 | 65 6e 0d 20 20 20 20 70 |n < 0 th|en.    p|
|00000e60| 75 74 20 30 20 69 6e 74 | 6f 20 70 72 65 73 73 65 |ut 0 int|o presse|
|00000e70| 64 42 74 6e 0d 20 20 65 | 6c 73 65 20 69 66 20 70 |dBtn.  e|lse if p|
|00000e80| 72 65 73 73 65 64 42 74 | 6e 20 3e 20 6d 61 78 62 |ressedBt|n > maxb|
|00000e90| 74 6e 2d 31 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |tn-1 the|n.    pu|
|00000ea0| 74 20 6d 61 78 62 74 6e | 2d 31 20 69 6e 74 6f 20 |t maxbtn|-1 into |
|00000eb0| 70 72 65 73 73 65 64 42 | 74 6e 0d 20 20 65 6e 64 |pressedB|tn.  end|
|00000ec0| 20 69 66 0d 20 20 72 65 | 74 75 72 6e 20 70 72 65 | if.  re|turn pre|
|00000ed0| 73 73 65 64 42 74 6e 2b | 31 0d 65 6e 64 20 46 69 |ssedBtn+|1.end Fi|
|00000ee0| 6e 64 54 68 65 42 75 74 | 74 6f 6e 0d 0d 6f 6e 20 |ndTheBut|ton..on |
|00000ef0| 48 69 64 65 53 70 72 69 | 74 65 20 73 0d 20 20 70 |HideSpri|te s.  p|
|00000f00| 75 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |ut the l|ocH of s|
|00000f10| 70 72 69 74 65 20 73 20 | 69 6e 74 6f 20 73 4c 65 |prite s |into sLe|
|00000f20| 66 74 0d 20 20 69 66 20 | 73 4c 65 66 74 20 3e 20 |ft.  if |sLeft > |
|00000f30| 30 20 74 68 65 6e 0d 20 | 20 20 20 70 75 70 70 65 |0 then. |   puppe|
|00000f40| 74 53 70 72 69 74 65 20 | 73 2c 74 72 75 65 20 20 |tSprite |s,true  |
|00000f50| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00000f60| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 20 74 6f |H of spr|ite s to|
|00000f70| 20 73 4c 65 66 74 2d 35 | 30 30 30 0d 20 20 20 20 | sLeft-5|000.    |
|00000f80| 55 70 64 61 74 65 53 74 | 61 67 65 0d 20 20 65 6e |UpdateSt|age.  en|
|00000f90| 64 20 69 66 0d 65 6e 64 | 20 48 69 64 65 53 70 72 |d if.end| HideSpr|
|00000fa0| 69 74 65 0d 0d 6f 6e 20 | 53 68 6f 77 53 70 72 69 |ite..on |ShowSpri|
|00000fb0| 74 65 20 73 0d 20 20 70 | 75 74 20 74 68 65 20 6c |te s.  p|ut the l|
|00000fc0| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 73 20 |ocH of s|prite s |
|00000fd0| 69 6e 74 6f 20 73 4c 65 | 66 74 0d 20 20 69 66 20 |into sLe|ft.  if |
|00000fe0| 28 73 4c 65 66 74 20 3c | 20 30 29 20 74 68 65 6e |(sLeft <| 0) then|
|00000ff0| 0d 20 20 20 20 70 75 70 | 70 65 74 53 70 72 69 74 |.    pup|petSprit|
|00001000| 65 20 73 2c 74 72 75 65 | 0d 20 20 20 20 72 65 70 |e s,true|.    rep|
|00001010| 65 61 74 20 77 68 69 6c | 65 20 28 73 4c 65 66 74 |eat whil|e (sLeft|
|00001020| 20 3c 20 30 29 0d 20 20 | 20 20 20 20 70 75 74 20 | < 0).  |    put |
|00001030| 73 4c 65 66 74 2b 35 30 | 30 30 20 69 6e 74 6f 20 |sLeft+50|00 into |
|00001040| 73 4c 65 66 74 0d 20 20 | 20 20 20 20 73 65 74 20 |sLeft.  |    set |
|00001050| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|00001060| 74 65 20 73 20 74 6f 20 | 73 4c 65 66 74 0d 20 20 |te s to |sLeft.  |
|00001070| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 20 |  end re|peat.   |
|00001080| 20 55 70 64 61 74 65 53 | 74 61 67 65 0d 20 20 65 | UpdateS|tage.  e|
|00001090| 6e 64 20 69 66 0d 65 6e | 64 20 53 68 6f 77 53 70 |nd if.en|d ShowSp|
|000010a0| 72 69 74 65 0d 0d 0d 6f | 6e 20 47 6f 74 6f 46 72 |rite...o|n GotoFr|
|000010b0| 61 6d 65 20 72 65 6c 66 | 72 61 6d 65 0d 20 20 67 |ame relf|rame.  g|
|000010c0| 6c 6f 62 61 6c 20 67 50 | 61 75 73 65 2c 67 50 61 |lobal gP|ause,gPa|
|000010d0| 75 73 65 53 74 61 74 75 | 73 2c 67 54 69 6d 65 43 |useStatu|s,gTimeC|
|000010e0| 73 74 2c 67 44 69 73 63 | 54 69 6d 65 0d 20 20 0d |st,gDisc|Time.  .|
|000010f0| 20 20 70 75 74 20 6c 69 | 6e 65 20 47 65 74 46 72 |  put li|ne GetFr|
|00001100| 61 6d 65 4e 75 6d 28 29 | 2b 31 2b 72 65 6c 66 72 |ameNum()|+1+relfr|
|00001110| 61 6d 65 20 6f 66 20 66 | 69 65 6c 64 20 67 54 69 |ame of f|ield gTi|
|00001120| 6d 65 43 73 74 20 69 6e | 74 6f 20 74 0d 20 20 69 |meCst in|to t.  i|
|00001130| 66 20 43 44 53 74 61 74 | 75 73 28 29 20 3d 20 22 |f CDStat|us() = "|
|00001140| 31 22 20 74 68 65 6e 0d | 20 20 20 20 43 44 50 61 |1" then.|    CDPa|
|00001150| 75 73 65 28 29 0d 20 20 | 20 20 43 44 50 6c 61 79 |use().  |  CDPlay|
|00001160| 20 69 74 65 6d 20 31 20 | 6f 66 20 74 2c 20 69 74 | item 1 |of t, it|
|00001170| 65 6d 20 32 20 6f 66 20 | 74 2c 20 69 74 65 6d 20 |em 2 of |t, item |
|00001180| 33 20 6f 66 20 74 2c c2 | 0d 69 74 65 6d 20 31 20 |3 of t,.|.item 1 |
|00001190| 6f 66 20 67 44 69 73 63 | 54 69 6d 65 2c 69 74 65 |of gDisc|Time,ite|
|000011a0| 6d 20 32 20 6f 66 20 67 | 44 69 73 63 54 69 6d 65 |m 2 of g|DiscTime|
|000011b0| 2c 20 69 74 65 6d 20 33 | 20 6f 66 20 67 44 69 73 |, item 3| of gDis|
|000011c0| 63 54 69 6d 65 2c 20 0d | 20 20 20 20 0d 20 20 20 |cTime, .|    .   |
|000011d0| 20 2d 2d 20 65 6c 73 65 | 20 69 66 20 67 50 61 75 | -- else| if gPau|
|000011e0| 73 65 53 74 61 74 75 73 | 20 3d 20 74 72 75 65 20 |seStatus| = true |
|000011f0| 74 68 65 6e 0d 20 20 20 | 20 2d 2d 20 70 75 74 20 |then.   | -- put |
|00001200| 66 61 6c 73 65 20 69 6e | 74 6f 20 67 50 61 75 73 |false in|to gPaus|
|00001210| 65 53 74 61 74 75 73 0d | 20 20 65 6c 73 65 0d 20 |eStatus.|  else. |
|00001220| 20 20 20 70 75 74 20 74 | 72 75 65 20 69 6e 74 6f |   put t|rue into|
|00001230| 20 67 50 61 75 73 65 53 | 74 61 74 75 73 0d 20 20 | gPauseS|tatus.  |
|00001240| 20 20 70 75 74 20 32 26 | 22 2c 22 26 74 20 69 6e |  put 2&|","&t in|
|00001250| 74 6f 20 67 50 61 75 73 | 65 0d 20 20 20 20 70 75 |to gPaus|e.    pu|
|00001260| 74 20 67 50 61 75 73 65 | 0d 20 20 65 6e 64 20 69 |t gPause|.  end i|
|00001270| 66 0d 20 20 0d 20 20 70 | 75 74 20 69 74 65 6d 20 |f.  .  p|ut item |
|00001280| 31 20 6f 66 20 74 20 69 | 6e 74 6f 20 66 69 65 6c |1 of t i|nto fiel|
|00001290| 64 20 22 4d 69 6e 22 0d | 20 20 70 75 74 20 69 74 |d "Min".|  put it|
|000012a0| 65 6d 20 32 20 6f 66 20 | 74 20 69 6e 74 6f 20 66 |em 2 of |t into f|
|000012b0| 69 65 6c 64 20 22 53 65 | 63 22 0d 20 20 0d 20 20 |ield "Se|c".  .  |
|000012c0| 41 64 76 61 6e 63 65 46 | 72 61 6d 65 20 72 65 6c |AdvanceF|rame rel|
|000012d0| 66 72 61 6d 65 0d 20 20 | 0d 65 6e 64 20 6e 65 78 |frame.  |.end nex|
|000012e0| 74 46 72 61 6d 65 0d 0d | 6f 6e 20 75 70 64 61 74 |tFrame..|on updat|
|000012f0| 65 43 75 72 73 6f 72 73 | 0d 20 20 0d 20 20 67 6c |eCursors|.  .  gl|
|00001300| 6f 62 61 6c 20 67 47 6f | 4c 65 66 74 2c 67 47 6f |obal gGo|Left,gGo|
|00001310| 52 69 67 68 74 2c 67 47 | 6f 4d 65 6e 75 2c 67 47 |Right,gG|oMenu,gG|
|00001320| 6f 49 6e 66 6f 2c 67 50 | 6c 61 79 50 61 75 73 65 |oInfo,gP|layPause|
|00001330| 2c 67 4d 65 6e 75 42 61 | 72 0d 20 20 0d 20 20 2d |,gMenuBa|r.  .  -|
|00001340| 2d 20 63 75 72 73 6f 72 | 20 49 44 73 3a 0d 20 20 |- cursor| IDs:.  |
|00001350| 2d 2d 20 31 32 38 20 2d | 20 72 69 67 68 74 20 61 |-- 128 -| right a|
|00001360| 72 72 6f 77 20 28 70 6c | 61 79 20 73 6f 75 6e 64 |rrow (pl|ay sound|
|00001370| 29 0d 20 20 2d 2d 20 31 | 33 32 20 2d 20 51 75 65 |).  -- 1|32 - Que|
|00001380| 73 74 69 6f 6e 20 6d 61 | 72 6b 20 2d 20 69 6e 66 |stion ma|rk - inf|
|00001390| 6f 0d 20 20 2d 2d 20 31 | 33 33 20 2d 20 6c 65 66 |o.  -- 1|33 - lef|
|000013a0| 74 20 61 72 72 6f 77 20 | 2d 20 67 6f 20 62 61 63 |t arrow |- go bac|
|000013b0| 6b 0d 20 20 2d 2d 20 31 | 33 34 20 2d 20 72 69 67 |k.  -- 1|34 - rig|
|000013c0| 68 74 20 61 72 72 6f 77 | 20 2d 20 67 6f 20 66 6f |ht arrow| - go fo|
|000013d0| 72 77 61 72 64 0d 20 20 | 2d 2d 20 31 33 35 20 2d |rward.  |-- 135 -|
|000013e0| 20 72 65 63 74 61 6e 67 | 6c 65 20 28 70 61 75 73 | rectang|le (paus|
|000013f0| 65 20 73 6f 75 6e 64 29 | 0d 20 20 0d 20 20 70 75 |e sound)|.  .  pu|
|00001400| 74 20 74 68 65 20 66 72 | 61 6d 65 20 69 6e 74 6f |t the fr|ame into|
|00001410| 20 63 75 72 66 72 61 6d | 65 0d 20 20 0d 20 20 2d | curfram|e.  .  -|
|00001420| 2d 20 69 66 20 77 65 20 | 61 72 65 20 62 65 74 77 |- if we |are betw|
|00001430| 65 65 6e 20 43 75 72 73 | 6f 72 42 65 67 20 61 6e |een Curs|orBeg an|
|00001440| 64 20 43 75 72 73 6f 72 | 45 6e 64 20 6f 72 0d 20 |d Cursor|End or. |
|00001450| 20 2d 2d 20 73 65 74 20 | 75 70 20 74 68 65 20 73 | -- set |up the s|
|00001460| 70 65 63 69 61 6c 20 63 | 75 72 73 6f 72 73 0d 20 |pecial c|ursors. |
|00001470| 20 69 66 20 28 67 4d 65 | 6e 75 42 61 72 20 3d 20 | if (gMe|nuBar = |
|00001480| 66 61 6c 73 65 29 20 74 | 68 65 6e 0d 20 20 20 20 |false) t|hen.    |
|00001490| 0d 20 20 20 20 69 66 20 | 74 68 65 20 63 61 73 74 |.    if |the cast|
|000014a0| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 67 47 |Num of s|prite gG|
|000014b0| 6f 52 69 67 68 74 20 3d | 20 30 20 74 68 65 6e 0d |oRight =| 0 then.|
|000014c0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 63 75 |      se|t the cu|
|000014d0| 72 73 6f 72 20 6f 66 20 | 73 70 72 69 74 65 20 67 |rsor of |sprite g|
|000014e0| 47 6f 52 69 67 68 74 20 | 74 6f 20 30 0d 20 20 20 |GoRight |to 0.   |
|000014f0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 | else.  |    set |
|00001500| 74 68 65 20 63 75 72 73 | 6f 72 20 6f 66 20 73 70 |the curs|or of sp|
|00001510| 72 69 74 65 20 67 47 6f | 52 69 67 68 74 20 74 6f |rite gGo|Right to|
|00001520| 20 31 33 34 0d 20 20 20 | 20 65 6e 64 20 69 66 0d | 134.   | end if.|
|00001530| 20 20 20 20 0d 20 20 20 | 20 69 66 20 74 68 65 20 |    .   | if the |
|00001540| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00001550| 65 20 67 47 6f 4c 65 66 | 74 20 3d 20 30 20 74 68 |e gGoLef|t = 0 th|
|00001560| 65 6e 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |en.     | set the|
|00001570| 20 63 75 72 73 6f 72 20 | 6f 66 20 73 70 72 69 74 | cursor |of sprit|
|00001580| 65 20 67 47 6f 4c 65 66 | 74 20 74 6f 20 30 0d 20 |e gGoLef|t to 0. |
|00001590| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 73 65 |   else.|      se|
|000015a0| 74 20 74 68 65 20 63 75 | 72 73 6f 72 20 6f 66 20 |t the cu|rsor of |
|000015b0| 73 70 72 69 74 65 20 67 | 47 6f 4c 65 66 74 20 74 |sprite g|GoLeft t|
|000015c0| 6f 20 31 33 33 0d 20 20 | 20 20 65 6e 64 20 69 66 |o 133.  |  end if|
|000015d0| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 74 68 65 |.    .  |  if the|
|000015e0| 20 63 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | castNum| of spri|
|000015f0| 74 65 20 67 50 6c 61 79 | 50 61 75 73 65 20 3d 20 |te gPlay|Pause = |
|00001600| 30 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 73 65 |0 then .|      se|
|00001610| 74 20 74 68 65 20 63 75 | 72 73 6f 72 20 6f 66 20 |t the cu|rsor of |
|00001620| 73 70 72 69 74 65 20 67 | 50 6c 61 79 50 61 75 73 |sprite g|PlayPaus|
|00001630| 65 20 74 6f 20 30 0d 20 | 20 20 20 65 6c 73 65 20 |e to 0. |   else |
|00001640| 69 66 20 43 44 53 74 61 | 74 75 73 28 29 20 3d 20 |if CDSta|tus() = |
|00001650| 22 31 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 73 |"1" then|.      s|
|00001660| 65 74 20 74 68 65 20 63 | 75 72 73 6f 72 20 6f 66 |et the c|ursor of|
|00001670| 20 73 70 72 69 74 65 20 | 67 50 6c 61 79 50 61 75 | sprite |gPlayPau|
|00001680| 73 65 20 74 6f 20 31 33 | 35 20 2d 2d 20 73 68 6f |se to 13|5 -- sho|
|00001690| 77 20 70 61 75 73 65 20 | 63 75 72 73 6f 72 0d 20 |w pause |cursor. |
|000016a0| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 73 65 |   else.|      se|
|000016b0| 74 20 74 68 65 20 63 75 | 72 73 6f 72 20 6f 66 20 |t the cu|rsor of |
|000016c0| 73 70 72 69 74 65 20 67 | 50 6c 61 79 50 61 75 73 |sprite g|PlayPaus|
|000016d0| 65 20 74 6f 20 31 32 38 | 20 2d 2d 20 73 68 6f 77 |e to 128| -- show|
|000016e0| 20 70 6c 61 79 20 63 75 | 72 73 6f 72 0d 20 20 20 | play cu|rsor.   |
|000016f0| 20 65 6e 64 20 69 66 20 | 20 0d 20 20 20 20 0d 20 | end if | .    . |
|00001700| 20 20 20 69 66 20 74 68 | 65 20 63 61 73 74 4e 75 |   if th|e castNu|
|00001710| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 67 47 6f 4d |m of spr|ite gGoM|
|00001720| 65 6e 75 20 3d 20 30 20 | 74 68 65 6e 0d 20 20 20 |enu = 0 |then.   |
|00001730| 20 20 20 73 65 74 20 74 | 68 65 20 63 75 72 73 6f |   set t|he curso|
|00001740| 72 20 6f 66 20 73 70 72 | 69 74 65 20 67 47 6f 4d |r of spr|ite gGoM|
|00001750| 65 6e 75 20 74 6f 20 30 | 0d 20 20 20 20 65 6c 73 |enu to 0|.    els|
|00001760| 65 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |e.      |set the |
|00001770| 63 75 72 73 6f 72 20 6f | 66 20 73 70 72 69 74 65 |cursor o|f sprite|
|00001780| 20 67 47 6f 4d 65 6e 75 | 20 74 6f 20 31 33 37 0d | gGoMenu| to 137.|
|00001790| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|000017a0| 20 20 20 20 0d 20 20 20 | 20 69 66 20 30 20 74 68 |    .   | if 0 th|
|000017b0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |en.     | if the |
|000017c0| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|000017d0| 65 20 32 33 20 3d 20 30 | 20 74 68 65 6e 0d 20 20 |e 23 = 0| then.  |
|000017e0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 63 75 |      se|t the cu|
|000017f0| 72 73 6f 72 20 6f 66 20 | 73 70 72 69 74 65 20 32 |rsor of |sprite 2|
|00001800| 33 20 74 6f 20 30 0d 20 | 20 20 20 20 20 65 6c 73 |3 to 0. |     els|
|00001810| 65 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |e.      |  set th|
|00001820| 65 20 63 75 72 73 6f 72 | 20 6f 66 20 73 70 72 69 |e cursor| of spri|
|00001830| 74 65 20 32 33 20 74 6f | 20 31 33 38 0d 20 20 20 |te 23 to| 138.   |
|00001840| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e |   end i|f.    en|
|00001850| 64 20 69 66 0d 20 20 20 | 20 0d 20 20 65 6c 73 65 |d if.   | .  else|
|00001860| 20 2d 2d 20 6e 6f 74 20 | 61 20 66 72 61 6d 65 20 | -- not |a frame |
|00001870| 74 68 61 74 20 68 61 73 | 20 74 68 65 20 73 70 65 |that has| the spe|
|00001880| 63 69 61 6c 20 63 75 72 | 73 6f 72 73 20 2d 20 72 |cial cur|sors - r|
|00001890| 65 73 65 74 20 65 76 65 | 72 79 74 68 69 6e 67 0d |eset eve|rything.|
|000018a0| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 75 72 73 |    set |the curs|
|000018b0| 6f 72 20 6f 66 20 73 70 | 72 69 74 65 20 31 20 74 |or of sp|rite 1 t|
|000018c0| 6f 20 30 20 0d 20 20 20 | 20 73 65 74 20 74 68 65 |o 0 .   | set the|
|000018d0| 20 63 75 72 73 6f 72 20 | 6f 66 20 73 70 72 69 74 | cursor |of sprit|
|000018e0| 65 20 67 47 6f 4c 65 66 | 74 20 74 6f 20 30 0d 20 |e gGoLef|t to 0. |
|000018f0| 20 20 20 73 65 74 20 74 | 68 65 20 63 75 72 73 6f |   set t|he curso|
|00001900| 72 20 6f 66 20 73 70 72 | 69 74 65 20 67 47 6f 52 |r of spr|ite gGoR|
|00001910| 69 67 68 74 20 74 6f 20 | 30 0d 20 20 20 20 05 20 |ight to |0.    . |
|00001920| 20 20 20 69 66 20 74 68 | 65 20 63 61 73 74 4e 75 |   if th|e castNu|
|00001930| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 67 47 6f 4d |m of spr|ite gGoM|
|00001940| 65 6e 75 20 3d 20 30 20 | 74 68 65 6e 0d 20 20 20 |enu = 0 |then.   |
|00001950| 20 20 20 73 65 74 20 74 | 68 65 20 63 75 72 73 6f |   set t|he curso|
|00001960| 72 20 6f 66 20 73 70 72 | 69 74 65 20 67 47 6f 4d |r of spr|ite gGoM|
|00001970| 65 6e 75 20 74 6f 20 30 | 0d 20 20 20 20 65 6c 73 |enu to 0|.    els|
|00001980| 65 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |e.      |set the |
|00001990| 63 75 72 73 6f 72 20 6f | 66 20 73 70 72 69 74 65 |cursor o|f sprite|
|000019a0| 20 67 47 6f 4d 65 6e 75 | 20 74 6f 20 31 33 37 0d | gGoMenu| to 137.|
|000019b0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 65 6e 64 |    end |if.  end|
|000019c0| 20 69 66 0d 20 20 0d 65 | 6e 64 20 75 70 64 61 74 | if.  .e|nd updat|
|000019d0| 65 43 75 72 73 6f 72 73 | 0d 0d 6f 6e 20 43 6f 6e |eCursors|..on Con|
|000019e0| 76 65 72 74 42 6c 6b 4c | 69 73 74 20 66 73 72 63 |vertBlkL|ist fsrc|
|000019f0| 2c 66 64 65 73 74 0d 20 | 20 70 75 74 20 66 61 6c |,fdest. | put fal|
|00001a00| 73 65 20 69 6e 74 6f 20 | 64 6f 6e 65 0d 20 20 70 |se into |done.  p|
|00001a10| 75 74 20 2d 31 20 69 6e | 74 6f 20 6c 61 73 74 0d |ut -1 in|to last.|
|00001a20| 20 20 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |  put th|e number|
|00001a30| 20 6f 66 20 63 61 73 74 | 20 66 73 72 63 20 69 6e | of cast| fsrc in|
|00001a40| 74 6f 20 63 73 74 0d 20 | 20 70 75 74 20 65 6d 70 |to cst. | put emp|
|00001a50| 74 79 20 69 6e 74 6f 20 | 74 65 6d 70 0d 20 20 70 |ty into |temp.  p|
|00001a60| 75 74 20 31 20 69 6e 74 | 6f 20 69 0d 20 20 72 65 |ut 1 int|o i.  re|
|00001a70| 70 65 61 74 20 77 68 69 | 6c 65 20 6e 6f 74 20 64 |peat whi|le not d|
|00001a80| 6f 6e 65 0d 20 20 20 20 | 70 75 74 20 6c 69 6e 65 |one.    |put line|
|00001a90| 20 69 20 6f 66 20 66 69 | 65 6c 64 20 63 73 74 20 | i of fi|eld cst |
|00001aa0| 69 6e 74 6f 20 62 6c 6b | 73 0d 20 20 20 20 69 66 |into blk|s.    if|
|00001ab0| 20 62 6c 6b 73 20 3c 3e | 20 45 4d 50 54 59 20 74 | blks <>| EMPTY t|
|00001ac0| 68 65 6e 0d 20 20 20 20 | 20 20 70 75 74 20 76 61 |hen.    |  put va|
|00001ad0| 6c 75 65 28 69 74 65 6d | 20 31 20 6f 66 20 62 6c |lue(item| 1 of bl|
|00001ae0| 6b 73 29 20 2a 20 34 35 | 30 30 20 2b 20 76 61 6c |ks) * 45|00 + val|
|00001af0| 75 65 28 69 74 65 6d 20 | 32 20 6f 66 20 62 6c 6b |ue(item |2 of blk|
|00001b00| 73 29 20 2a 20 37 35 20 | c2 0d 2b 20 76 61 6c 75 |s) * 75 |..+ valu|
|00001b10| 65 28 69 74 65 6d 20 33 | 20 6f 66 20 62 6c 6b 73 |e(item 3| of blks|
|00001b20| 29 20 69 6e 74 6f 20 62 | 6c 6b 6e 75 6d 0d 20 20 |) into b|lknum.  |
|00001b30| 20 20 20 20 69 66 20 28 | 62 6c 6b 6e 75 6d 20 3c |    if (|blknum <|
|00001b40| 20 6c 61 73 74 29 20 74 | 68 65 6e 0d 20 20 20 20 | last) t|hen.    |
|00001b50| 20 20 20 20 70 75 74 20 | 22 45 72 72 6f 72 20 61 |    put |"Error a|
|00001b60| 74 20 22 26 66 73 72 63 | 26 22 3a 20 22 26 62 6c |t "&fsrc|&": "&bl|
|00001b70| 6b 73 26 22 20 2d 2d 20 | 22 26 62 6c 6b 6e 75 6d |ks&" -- |"&blknum|
|00001b80| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 0d 20 20 20 |.      e|lse .   |
|00001b90| 20 20 20 20 20 70 75 74 | 20 62 6c 6b 6e 75 6d 20 |     put| blknum |
|00001ba0| 26 20 52 45 54 55 52 4e | 20 61 66 74 65 72 20 6c |& RETURN| after l|
|00001bb0| 69 6e 65 20 69 20 6f 66 | 20 74 65 6d 70 0d 20 20 |ine i of| temp.  |
|00001bc0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00001bd0| 20 70 75 74 20 62 6c 6b | 6e 75 6d 20 69 6e 74 6f | put blk|num into|
|00001be0| 20 6c 61 73 74 0d 20 20 | 20 20 20 20 70 75 74 20 | last.  |    put |
|00001bf0| 69 2b 31 20 69 6e 74 6f | 20 69 0d 20 20 20 20 65 |i+1 into| i.    e|
|00001c00| 6c 73 65 20 0d 20 20 20 | 20 20 20 70 75 74 20 74 |lse .   |   put t|
|00001c10| 72 75 65 20 69 6e 74 6f | 20 64 6f 6e 65 0d 20 20 |rue into| done.  |
|00001c20| 20 20 65 6e 64 20 69 66 | 0d 20 20 65 6e 64 20 72 |  end if|.  end r|
|00001c30| 65 70 65 61 74 0d 20 20 | 70 75 74 20 74 65 6d 70 |epeat.  |put temp|
|00001c40| 20 69 6e 74 6f 20 66 69 | 65 6c 64 20 28 74 68 65 | into fi|eld (the|
|00001c50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00001c60| 66 64 65 73 74 29 0d 65 | 6e 64 20 43 6f 6e 76 65 |fdest).e|nd Conve|
|00001c70| 72 74 42 6c 6b 4c 69 73 | 74 0d 0d 0d 6f 6e 20 47 |rtBlkLis|t...on G|
|00001c80| 6c 6f 62 61 6c 49 6e 69 | 74 0d 20 20 0d 20 20 67 |lobalIni|t.  .  g|
|00001c90| 6c 6f 62 61 6c 20 67 53 | 6f 75 6e 64 4c 69 73 74 |lobal gS|oundList|
|00001ca0| 2c 20 67 43 44 4f 4b 2c | 20 67 49 6e 69 74 65 64 |, gCDOK,| gInited|
|00001cb0| 41 6c 72 65 61 64 79 0d | 20 20 67 6c 6f 62 61 6c |Already.|  global|
|00001cc0| 20 67 50 61 75 73 65 2c | 20 67 50 61 75 73 65 53 | gPause,| gPauseS|
|00001cd0| 74 61 74 75 73 2c 20 67 | 50 6c 61 79 69 6e 67 0d |tatus, g|Playing.|
|00001ce0| 20 20 67 6c 6f 62 61 6c | 20 67 53 65 6c 4f 6e 6c |  global| gSelOnl|
|00001cf0| 79 2c 67 56 69 65 77 2c | 67 4d 65 6e 75 42 61 72 |y,gView,|gMenuBar|
|00001d00| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 47 6f 4c 65 66 |.  globa|l gGoLef|
|00001d10| 74 2c 67 47 6f 52 69 67 | 68 74 2c 67 47 6f 4d 65 |t,gGoRig|ht,gGoMe|
|00001d20| 6e 75 2c 67 47 6f 49 6e | 66 6f 2c 67 50 6c 61 79 |nu,gGoIn|fo,gPlay|
|00001d30| 50 61 75 73 65 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |Pause.  |global g|
|00001d40| 54 69 6d 65 43 73 74 2c | 67 45 6e 64 42 6c 6b 2c |TimeCst,|gEndBlk,|
|00001d50| 67 4c 61 73 74 46 72 6d | 2c 67 48 69 64 65 54 69 |gLastFrm|,gHideTi|
|00001d60| 6d 65 0d 20 20 67 6c 6f | 62 61 6c 20 67 44 69 73 |me.  glo|bal gDis|
|00001d70| 63 54 69 6d 65 2c 20 67 | 4b 65 79 50 6c 61 79 2c |cTime, g|KeyPlay,|
|00001d80| 20 67 52 65 76 45 6e 64 | 42 6c 6b 2c 67 49 6d 61 | gRevEnd|Blk,gIma|
|00001d90| 67 56 69 65 77 0d 20 20 | 0d 20 20 73 65 74 20 74 |gView.  |.  set t|
|00001da0| 68 65 20 63 6f 6c 6f 72 | 44 65 70 74 68 20 74 6f |he color|Depth to|
|00001db0| 20 34 0d 20 20 70 75 74 | 20 33 20 69 6e 74 6f 20 | 4.  put| 3 into |
|00001dc0| 67 50 6c 61 79 50 61 75 | 73 65 0d 20 20 70 75 74 |gPlayPau|se.  put|
|00001dd0| 20 31 39 20 69 6e 74 6f | 20 67 47 6f 52 69 67 68 | 19 into| gGoRigh|
|00001de0| 74 0d 20 20 70 75 74 20 | 32 30 20 69 6e 74 6f 20 |t.  put |20 into |
|00001df0| 67 47 6f 4c 65 66 74 0d | 20 20 70 75 74 20 32 31 |gGoLeft.|  put 21|
|00001e00| 20 69 6e 74 6f 20 67 47 | 6f 4d 65 6e 75 0d 20 20 | into gG|oMenu.  |
|00001e10| 70 75 74 20 32 32 20 69 | 6e 74 6f 20 67 47 6f 49 |put 22 i|nto gGoI|
|00001e20| 6e 66 6f 0d 20 20 0d 20 | 20 67 6c 6f 62 61 6c 20 |nfo.  . | global |
|00001e30| 67 55 73 65 72 50 61 74 | 68 0d 20 20 4f 70 65 6e |gUserPat|h.  Open|
|00001e40| 58 4c 69 62 28 67 55 73 | 65 72 50 61 74 68 26 22 |XLib(gUs|erPath&"|
|00001e50| 41 6c 6c 4d 79 2e 72 73 | 72 63 22 29 20 20 2d 2d |AllMy.rs|rc")  --|
|00001e60| 20 6f 70 65 6e 20 6f 75 | 72 20 78 6c 69 62 2e 2e | open ou|r xlib..|
|00001e70| 2e 0d 20 20 0d 20 20 2d | 2d 20 6d 61 6b 65 20 73 |..  .  -|- make s|
|00001e80| 75 72 65 20 77 65 20 61 | 72 65 20 6f 6b 20 74 6f |ure we a|re ok to|
|00001e90| 20 75 73 65 20 74 68 65 | 20 43 44 0d 20 20 70 75 | use the| CD.  pu|
|00001ea0| 74 20 76 61 6c 75 65 28 | 63 64 4f 70 65 6e 28 29 |t value(|cdOpen()|
|00001eb0| 29 20 69 6e 74 6f 20 43 | 44 52 65 73 75 6c 74 0d |) into C|DResult.|
|00001ec0| 20 20 69 66 20 43 44 52 | 65 73 75 6c 74 20 3c 20 |  if CDR|esult < |
|00001ed0| 2d 31 30 30 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |-100 the|n.    pu|
|00001ee0| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 67 43 44 4f |t true i|nto gCDO|
|00001ef0| 4b 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 70 75 74 |K.  else|.    put|
|00001f00| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 67 43 44 4f | false i|nto gCDO|
|00001f10| 4b 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |K.  end |if.  .  |
|00001f20| 2d 2d 20 6d 61 6b 65 20 | 73 75 72 65 20 74 68 65 |-- make |sure the|
|00001f30| 20 63 6f 72 72 65 63 74 | 20 63 64 20 69 73 20 69 | correct| cd is i|
|00001f40| 6e 20 74 68 65 20 70 6c | 61 79 65 72 0d 20 20 70 |n the pl|ayer.  p|
|00001f50| 75 74 20 43 44 44 69 73 | 63 54 69 6d 65 28 29 20 |ut CDDis|cTime() |
|00001f60| 69 6e 74 6f 20 67 44 69 | 73 63 54 69 6d 65 0d 20 |into gDi|scTime. |
|00001f70| 20 0d 20 20 70 75 74 20 | 63 64 4e 61 6d 65 28 29 | .  put |cdName()|
|00001f80| 20 69 6e 74 6f 20 74 68 | 65 4e 61 6d 65 20 0d 20 | into th|eName . |
|00001f90| 20 69 66 20 28 28 74 68 | 65 4e 61 6d 65 20 3c 3e | if ((th|eName <>|
|00001fa0| 20 22 53 75 62 6f 74 6e | 69 63 6b 20 48 75 6d 22 | "Subotn|ick Hum"|
|00001fb0| 29 20 61 6e 64 20 28 74 | 68 65 4e 61 6d 65 20 3c |) and (t|heName <|
|00001fc0| 3e 20 22 48 75 6d 6d 69 | 6e 67 62 69 72 64 73 22 |> "Hummi|ngbirds"|
|00001fd0| 29 29 20 6f 72 20 28 67 | 43 44 4f 4b 20 3d 20 66 |)) or (g|CDOK = f|
|00001fe0| 61 6c 73 65 29 20 74 68 | 65 6e 0d 20 20 20 20 41 |alse) th|en.    A|
|00001ff0| 6c 65 72 74 20 28 22 42 | 65 66 6f 72 65 20 79 6f |lert ("B|efore yo|
|00002000| 75 20 62 65 67 69 6e 2c | 20 79 6f 75 20 6d 75 73 |u begin,| you mus|
|00002010| 74 20 68 61 76 65 20 74 | 68 65 20 48 75 6d 6d 69 |t have t|he Hummi|
|00002020| 6e 67 62 69 72 64 73 20 | 43 44 20 6d 6f 75 6e 74 |ngbirds |CD mount|
|00002030| 65 64 20 6f 6e 20 79 6f | 75 72 20 64 65 73 6b 74 |ed on yo|ur deskt|
|00002040| 6f 70 2e 22 29 0d 20 20 | 20 20 2d 2d 20 71 75 69 |op.").  |  -- qui|
|00002050| 74 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |t.  end |if.  .  |
|00002060| 73 65 74 20 74 68 65 20 | 65 78 69 74 4c 6f 63 6b |set the |exitLock|
|00002070| 20 3d 20 74 72 75 65 0d | 20 20 0d 20 20 2d 2d 20 | = true.|  .  -- |
|00002080| 62 6f 72 64 65 72 20 74 | 68 65 20 77 69 6e 64 6f |border t|he windo|
|00002090| 77 73 20 69 66 20 6e 65 | 65 64 65 64 20 75 73 69 |ws if ne|eded usi|
|000020a0| 6e 67 20 6f 70 65 6e 20 | 62 6c 6f 6f 64 79 20 77 |ng open |bloody w|
|000020b0| 69 6e 64 6f 77 73 0d 20 | 20 69 66 20 67 49 6e 69 |indows. | if gIni|
|000020c0| 74 65 64 41 6c 72 65 61 | 64 79 20 3c 3e 20 74 72 |tedAlrea|dy <> tr|
|000020d0| 75 65 20 74 68 65 6e 0d | 20 20 20 20 2d 2d 20 6f |ue then.|    -- o|
|000020e0| 70 65 6e 42 6c 6f 6f 64 | 79 57 69 6e 64 6f 77 73 |penBlood|yWindows|
|000020f0| 0d 20 20 20 20 0d 20 20 | 20 20 70 75 74 20 74 72 |.    .  |  put tr|
|00002100| 75 65 20 69 6e 74 6f 20 | 67 49 6e 69 74 65 64 41 |ue into |gInitedA|
|00002110| 6c 72 65 61 64 79 0d 20 | 20 65 6e 64 20 69 66 0d |lready. | end if.|
|00002120| 20 20 0d 20 20 70 75 74 | 20 66 61 6c 73 65 20 69 |  .  put| false i|
|00002130| 6e 74 6f 20 67 50 61 75 | 73 65 53 74 61 74 75 73 |nto gPau|seStatus|
|00002140| 0d 20 20 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |.  put f|alse int|
|00002150| 6f 20 67 50 6c 61 79 69 | 6e 67 0d 20 20 70 75 74 |o gPlayi|ng.  put|
|00002160| 20 30 20 69 6e 74 6f 20 | 67 53 65 6c 4f 6e 6c 79 | 0 into |gSelOnly|
|00002170| 0d 20 20 70 75 74 20 30 | 20 69 6e 74 6f 20 67 4b |.  put 0| into gK|
|00002180| 65 79 50 6c 61 79 0d 20 | 20 70 75 74 20 31 20 69 |eyPlay. | put 1 i|
|00002190| 6e 74 6f 20 67 56 69 65 | 77 0d 20 20 70 75 74 20 |nto gVie|w.  put |
|000021a0| 30 20 69 6e 74 6f 20 67 | 52 65 76 45 6e 64 42 6c |0 into g|RevEndBl|
|000021b0| 6b 0d 20 20 70 75 74 20 | 2d 31 20 69 6e 74 6f 20 |k.  put |-1 into |
|000021c0| 67 4c 61 73 74 46 72 6d | 0d 20 20 70 75 74 20 32 |gLastFrm|.  put 2|
|000021d0| 30 30 30 30 30 30 30 30 | 30 20 69 6e 74 6f 20 67 |00000000|0 into g|
|000021e0| 48 69 64 65 54 69 6d 65 | 0d 20 20 0d 20 20 0d 20 |HideTime|.  .  . |
|000021f0| 20 69 66 20 43 44 53 74 | 61 74 75 73 28 29 20 3d | if CDSt|atus() =|
|00002200| 20 22 31 22 20 74 68 65 | 6e 20 43 44 50 61 75 73 | "1" the|n CDPaus|
|00002210| 65 28 29 0d 20 20 0d 65 | 6e 64 20 47 6c 6f 62 61 |e().  .e|nd Globa|
|00002220| 6c 49 6e 69 74 0d 0d 6f | 6e 20 73 74 61 72 74 4d |lInit..o|n startM|
|00002230| 6f 76 69 65 0d 20 20 67 | 6c 6f 62 61 6c 49 6e 69 |ovie.  g|lobalIni|
|00002240| 74 20 0d 20 20 75 70 64 | 61 74 65 43 75 72 73 6f |t .  upd|ateCurso|
|00002250| 72 73 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |rs.     | set the|
|00002260| 20 6b 65 79 64 6f 77 6e | 73 63 72 69 70 74 20 74 | keydown|script t|
|00002270| 6f 20 22 69 66 20 74 68 | 65 20 63 6f 6d 6d 61 6e |o "if th|e comman|
|00002280| 64 64 6f 77 6e 20 61 6e | 64 20 c2 0d 28 74 68 65 |ddown an|d ..(the|
|00002290| 20 6b 65 79 20 3d 20 22 | 26 71 75 6f 74 65 26 22 | key = "|&quote&"|
|000022a0| 51 22 26 71 75 6f 74 65 | 26 22 20 4f 52 20 74 68 |Q"&quote|&" OR th|
|000022b0| 65 20 6b 65 79 20 3d 20 | 22 26 71 75 6f 74 65 26 |e key = |"&quote&|
|000022c0| 22 71 22 26 71 75 6f 74 | 65 26 22 29 20 74 68 65 |"q"&quot|e&") the|
|000022d0| 6e 20 64 6f 51 75 69 74 | 22 0d 0d 65 6e 64 20 73 |n doQuit|"..end s|
|000022e0| 74 61 72 74 4d 6f 76 69 | 65 0d 0d 6f 6e 20 73 74 |tartMovi|e..on st|
|000022f0| 65 70 4d 6f 76 69 65 20 | 0d 20 20 67 6c 6f 62 61 |epMovie |.  globa|
|00002300| 6c 20 67 4c 61 73 74 46 | 72 6d 0d 20 20 69 66 20 |l gLastF|rm.  if |
|00002310| 74 68 65 20 66 72 61 6d | 65 20 3c 3e 20 67 4c 61 |the fram|e <> gLa|
|00002320| 73 74 46 72 6d 20 74 68 | 65 6e 0d 20 20 20 20 55 |stFrm th|en.    U|
|00002330| 70 64 61 74 65 43 75 72 | 73 6f 72 73 0d 20 20 20 |pdateCur|sors.   |
|00002340| 20 70 75 74 20 74 68 65 | 20 66 72 61 6d 65 20 69 | put the| frame i|
|00002350| 6e 74 6f 20 67 4c 61 73 | 74 46 72 6d 0d 20 20 65 |nto gLas|tFrm.  e|
|00002360| 6e 64 20 69 66 0d 65 6e | 64 20 73 74 65 70 4d 6f |nd if.en|d stepMo|
|00002370| 76 69 65 0d 0d 6f 6e 20 | 54 69 6d 65 54 6f 42 6c |vie..on |TimeToBl|
|00002380| 6b 73 20 6d 69 6e 2c 73 | 65 63 2c 62 6c 6b 0d 20 |ks min,s|ec,blk. |
|00002390| 20 72 65 74 75 72 6e 20 | 6d 69 6e 2a 34 35 30 30 | return |min*4500|
|000023a0| 20 2b 20 73 65 63 2a 37 | 35 20 2b 20 62 6c 6b 0d | + sec*7|5 + blk.|
|000023b0| 65 6e 64 20 74 69 6d 65 | 74 6f 62 6c 6b 73 0d 0d |end time|toblks..|
|000023c0| 6f 6e 20 43 75 72 43 44 | 42 6c 6f 63 6b 73 20 0d |on CurCD|Blocks .|
|000023d0| 20 20 70 75 74 20 43 44 | 45 6c 61 70 73 65 64 28 |  put CD|Elapsed(|
|000023e0| 29 20 69 6e 74 6f 20 74 | 65 6d 70 0d 20 20 72 65 |) into t|emp.  re|
|000023f0| 74 75 72 6e 20 69 74 65 | 6d 20 32 20 6f 66 20 74 |turn ite|m 2 of t|
|00002400| 65 6d 70 20 2a 20 34 35 | 30 30 20 2b 20 69 74 65 |emp * 45|00 + ite|
|00002410| 6d 20 33 20 6f 66 20 74 | 65 6d 70 20 2a 20 37 35 |m 3 of t|emp * 75|
|00002420| 20 2b 20 69 74 65 6d 20 | 34 20 6f 66 20 74 65 6d | + item |4 of tem|
|00002430| 70 0d 65 6e 64 20 43 75 | 72 43 44 42 6c 6f 63 6b |p.end Cu|rCDBlock|
|00002440| 73 0d 0d 6f 6e 20 69 64 | 6c 65 0d 20 20 67 6c 6f |s..on id|le.  glo|
|00002450| 62 61 6c 20 67 50 6c 61 | 79 69 6e 67 2c 20 67 53 |bal gPla|ying, gS|
|00002460| 65 6c 4f 6e 6c 79 2c 20 | 67 4d 65 6e 75 42 61 72 |elOnly, |gMenuBar|
|00002470| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 54 69 6d 65 43 |.  globa|l gTimeC|
|00002480| 73 74 2c 67 45 6e 64 42 | 6c 6b 2c 67 48 69 64 65 |st,gEndB|lk,gHide|
|00002490| 54 69 6d 65 0d 20 20 67 | 6c 6f 62 61 6c 20 67 4c |Time.  g|lobal gL|
|000024a0| 61 73 74 53 74 61 74 2c | 20 67 52 65 76 45 6e 64 |astStat,| gRevEnd|
|000024b0| 42 6c 6b 0d 20 20 0d 20 | 20 67 6c 6f 62 61 6c 20 |Blk.  . | global |
|000024c0| 67 4b 65 79 50 6c 61 79 | 2c 20 67 52 65 63 6f 72 |gKeyPlay|, gRecor|
|000024d0| 64 69 6e 67 2c 20 67 50 | 6c 61 79 49 6e 64 78 2c |ding, gP|layIndx,|
|000024e0| 67 42 61 73 65 54 69 63 | 6b 73 0d 20 20 0d 20 20 |gBaseTic|ks.  .  |
|000024f0| 69 66 20 28 67 52 65 76 | 45 6e 64 42 6c 6b 20 3e |if (gRev|EndBlk >|
|00002500| 20 30 29 20 74 68 65 6e | 0d 20 20 20 20 43 68 65 | 0) then|.    Che|
|00002510| 63 6b 52 65 76 0d 20 20 | 65 6e 64 20 69 66 0d 20 |ckRev.  |end if. |
|00002520| 20 0d 20 20 69 66 20 28 | 67 4b 65 79 50 6c 61 79 | .  if (|gKeyPlay|
|00002530| 20 3e 20 30 29 20 61 6e | 64 20 28 67 4b 65 79 50 | > 0) an|d (gKeyP|
|00002540| 6c 61 79 20 3c 20 74 68 | 65 20 74 69 63 6b 73 29 |lay < th|e ticks)|
|00002550| 20 74 68 65 6e 0d 20 20 | 20 20 49 64 6c 65 50 6c | then.  |  IdlePl|
|00002560| 61 79 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |ay.  end| if.  . |
|00002570| 20 69 66 20 28 74 68 65 | 20 6d 6f 75 73 65 56 20 | if (the| mouseV |
|00002580| 3c 20 32 30 29 20 61 6e | 64 20 28 67 4d 65 6e 75 |< 20) an|d (gMenu|
|00002590| 42 61 72 20 3d 20 66 61 | 6c 73 65 29 20 74 68 65 |Bar = fa|lse) the|
|000025a0| 6e 0d 20 20 20 20 69 6e | 73 74 61 6c 6c 4d 65 6e |n.    in|stallMen|
|000025b0| 75 20 48 38 37 0d 20 20 | 20 20 70 75 74 20 74 72 |u H87.  |  put tr|
|000025c0| 75 65 20 69 6e 74 6f 20 | 67 4d 65 6e 75 42 61 72 |ue into |gMenuBar|
|000025d0| 0d 20 20 20 20 55 70 64 | 61 74 65 43 75 72 73 6f |.    Upd|ateCurso|
|000025e0| 72 73 0d 20 20 65 6c 73 | 65 20 69 66 20 28 74 68 |rs.  els|e if (th|
|000025f0| 65 20 6d 6f 75 73 65 56 | 20 3e 3d 20 32 30 29 20 |e mouseV| >= 20) |
|00002600| 61 6e 64 20 28 67 4d 65 | 6e 75 42 61 72 20 3d 20 |and (gMe|nuBar = |
|00002610| 74 72 75 65 29 20 74 68 | 65 6e 0d 20 20 20 20 69 |true) th|en.    i|
|00002620| 6e 73 74 61 6c 6c 4d 65 | 6e 75 0d 20 20 20 20 70 |nstallMe|nu.    p|
|00002630| 75 74 20 66 61 6c 73 65 | 20 69 6e 74 6f 20 67 4d |ut false| into gM|
|00002640| 65 6e 75 42 61 72 0d 20 | 20 20 20 55 70 64 61 74 |enuBar. |   Updat|
|00002650| 65 43 75 72 73 6f 72 73 | 0d 20 20 65 6e 64 20 69 |eCursors|.  end i|
|00002660| 66 0d 20 20 0d 20 20 69 | 66 20 67 4c 61 73 74 53 |f.  .  i|f gLastS|
|00002670| 74 61 74 20 3c 3e 20 43 | 44 53 74 61 74 75 73 28 |tat <> C|DStatus(|
|00002680| 29 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 43 |) then. |   put C|
|00002690| 44 53 74 61 74 75 73 28 | 29 20 69 6e 74 6f 20 67 |DStatus(|) into g|
|000026a0| 4c 61 73 74 53 74 61 74 | 0d 20 20 20 20 55 70 64 |LastStat|.    Upd|
|000026b0| 61 74 65 43 75 72 73 6f | 72 73 0d 20 20 65 6e 64 |ateCurso|rs.  end|
|000026c0| 20 69 66 0d 20 20 0d 65 | 6e 64 20 69 64 6c 65 0d | if.  .e|nd idle.|
|000026d0| 0d 0d 0d 0b 78 78 78 78 | 20 2d 20 78 78 78 78 23 |....xxxx| - xxxx#|
|000026e0| 42 72 6f 63 6b 20 4c 61 | 50 6f 72 74 65 20 2d 20 |Brock La|Porte - |
|000026f0| 54 68 65 20 56 6f 79 61 | 67 65 72 20 43 6f 6d 70 |The Voya|ger Comp|
|00002700| 61 6e 79 00 02          |                         |any..   |        |
+--------+-------------------------+-------------------------+--------+--------+